/* $Id: tpyentry.prg,v 1.0 2009/04/02 10:21:00 tyler Exp $*/
/*
	Copyright © 2009  Miguel Suarez <tyler.ve at gmail.com>

   Este programa es software libre: usted puede redistribuirlo y/o modificarlo 
   conforme a los términos de la Licencia Pública General de GNU publicada por
   la Fundación para el Software Libre, ya sea la versión 3 de esta Licencia o 
   (a su elección) cualquier versión posterior.

   Este programa se distribuye con el deseo de que le resulte útil, pero 
   SIN GARANTÍAS DE NINGÚN TIPO; ni siquiera con las garantías implícitas de
   COMERCIABILIDAD o APTITUD PARA UN PROPÓSITO DETERMINADO. Para más información, 
   consulte la Licencia Pública General de GNU.

   http://www.gnu.org/licenses/

    (c)2008 Rafael Carmona <rafa.tgtk at gmail.com>
    (c)2009 Riztan Gutierrez <riztan at gmail.com>
    (c)2009 Miguel Suarez <tyler.ve at gmail.com>
*/

#include "hbclass.ch"
#include "gclass.ch"


CLASS TPYENTRY FROM GBOX

      DATA oLabel
      DATA oGentry
      
      METHOD New(  )

ENDCLASS


METHOD New( cTag, lMarkup, oFontLabel, cValue, oFontValue ,;
           lPassword, lhomogeneous, oParent1,oParent2, lExpand, lFill, nPadding,;
           lContainer, x, y,uLabelTab, lSecond, lResize, lShrink, left_ta, ;
           right_ta, top_ta, bottom_ta, xOptions_ta, yOptions_ta,;
           cId, uGlade ) CLASS TPYENTRY

	LOCAL nSpacing := 2, oHBox
	
   DEFAULT lHomogeneous := .F.
   DEFAULT oParent2 := oParent1
   DEFAULT lMarkup := .F.
   
   IF Empty(cValue)
      cValue := " "
   ENDIF

   IF cId == NIL
      ::pWidget := gtk_hbox_new ( lhomogeneous, nSpacing )
   ELSE
      ::pWidget := glade_xml_get_widget( uGlade, cId )
      ::CheckGlade( cId )
   ENDIF
   
   If lMarkup
      cTag := "<i>"+cTag+"</i>"
   EndIf

   ::oLabel := GLabel():new(cTag, .T., Self ,oFontLabel, .F., .F., , .F., ,;
                             , , , ,.F., .F., .F., .F., ,,,, ,, , ,  )

//   ::oGentry := GEntry():new( cValue ,,,,oFontValue, Self, .F., .F., ,.F.,,,,,,lPassword,;
//                             .F., .F., .F., .F., ,,,, , )

   ::Register()

   IF oParent1 != NIL
      // Si es una window, debe de usar CONTAINER
      If oParent1:ClassName() = "GWINDOW" .OR. oParent1:ClassName() = "GDIALOG" 
         lContainer := .T.
      EndIf
      ::AddChild( oParent1, lExpand, lFill, nPadding, lContainer, x, y,;
                  uLabelTab,, lSecond, lResize, lShrink,;
                  left_ta, right_ta, top_ta, bottom_ta , xOptions_ta, yOptions_ta )
   ENDIF

   ::oGentry := GEntry():new( cValue ,,,,oFontValue, Self, .F., .F., ,.F.,,,,,,lPassword,;
                             .F., .F., .F., .F., ,,,, , )

   ::Register()

   IF oParent2 != NIL
      // Si es una window, debe de usar CONTAINER
      if oParent2:ClassName() = "GWINDOW" .OR. oParent2:ClassName() = "GDIALOG" 
         lContainer := .T.
      endif
      ::AddChild( oParent2, lExpand, lFill, nPadding, lContainer, x, y,;
                  uLabelTab,, lSecond, lResize, lShrink,;
                  left_ta, right_ta, top_ta, bottom_ta , xOptions_ta, yOptions_ta )
   ENDIF
   ::Show()

RETURN Self



